home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #151 (1992-01)(Rhein-Sieg-Soft).zip / Franz PD Disk #151 (1992-01)(Rhein-Sieg-Soft).adf / CDisklab / CDISKLAB.GFA (.txt) < prev    next >
GFA-BASIC Amiga  |  1991-11-25  |  17KB  |  181 lines
  1. GFA-AMIGAB
  2. TRUETHEN
  3. OLDDIR
  4. MOUNT
  5. NEULAB
  6. KLICK1
  7. KLICK2
  8. KLICK3
  9. KLICK4
  10. KLICK5
  11. JANEIN
  12. ANTWORT
  13. DATUM
  14. DISKNR
  15. ALARM
  16. AUSGABE
  17. CHUNK
  18. BACKVAR
  19. IOREQ
  20. DEVERR
  21. OLDRX
  22. OLDRY
  23. DRIVE
  24. DUMMY
  25. WERT1
  26. ZEILE
  27. UMLAUT
  28. SWINDOW
  29. SSCREEN    SVIEWPORT    SRASTPORT    SCOLORMAP
  30. SBITMAP
  31. BYTANZ    GESBYTANZ
  32. ARCHR
  33. FARBKON
  34. NEULABEL
  35. MINIFONT
  36. DRIVE
  37. BPLANE
  38. SCRWIDTH    SCRHEIGHT
  39. FARBE
  40. SCRDEPTH
  41. DEPTH
  42. DATUM1
  43. RETOUR
  44. RETOURNR
  45. DISK1
  46. RETOURDISK
  47. RETOURENDE
  48. RETOURLT
  49. RETOURFILEIN
  50. FILEIN1
  51. PROGRAMMFEHLER
  52. START
  53. LABLADEN
  54. ALARM
  55. LABINFO
  56. LAB512
  57. MAUS    STEUERUNG
  58. FEHLER
  59. TEXTOUT
  60. EINCLEAR
  61. ABFRAGE
  62. EINGABE
  63. DATUMSET
  64. DISKNUMMER
  65. ENDE    LABELTEXT
  66. RANDAUTO
  67. RUECKENAUTO
  68. DRUCKEN
  69. RANDTEXT
  70. RUECKENTEXT
  71. EINLESEN
  72. GRAFSELECT
  73. SELECT
  74. SUCHEN
  75. FILEIN    TEXTLINKS
  76. TEXTRECHTS
  77. SCREEN_STRUKTUR
  78. FARBER
  79. FARBEG
  80. FARBEB
  81. **********************************************************************
  82. PROGRAMM  : COLOR-DISKLAB.GFA
  83. VERSION   : 1.61 PAL
  84. SPRACHE   : GfaBASIC
  85. COMPUTER  : AMIGA 1000 (500/2000)
  86. ZWECK     : Drucken von 3.5-Zoll Disketten-Etiketten
  87. AUTOR     : Elmar Kozyra
  88. AUTOR     : der Amiga-Basic-Original-Version :  Manfred Illi
  89. DATUM     : 29.10.91
  90. STATUS    : OK
  91. **********************************************************************
  92. BZU WENIG SPEICHER|BITTE VOR PROGRAMMAUFRUF|ALLE FENSTER SCHLIESSEN!
  93. E N D E!
  94. 10,10,10,3,3,3,11,0,0,0,8,0,2,4,12,14,11,0,11,5,2,0,12,12
  95.     LAB03.PICFF
  96.     LAB02.PICFF
  97.     LAB01.PICFF
  98. &MjF 
  99. &P:F 
  100. -=>>  SPEICHER-FEHLER  <<=-!
  101. &SRF-
  102. -=>>  SYSTEMFEHLER  <<=-!
  103. &SvF<
  104. PROGRAMM-MELDUNG    >>>TASTE<<<F
  105. Fehler-Code : "7
  106. SYSTEMF>
  107. DDas Programm mu
  108.  leider wegen|eines Systemfehlers abgebrochen werden!
  109. RAM:LAB.INFO F
  110. ram:Lab.infoF.
  111. &WVFF
  112. Eingabe O.K. ('RET'/N) ??
  113. #LABEL wirklich l
  114. schen ('RET'/N) ??
  115. Datum '
  116. bernehmen ('RET'/N) ??
  117. Datum eingeben (TT.MM.JJJJ) :!
  118. 9 JF:
  119. &]6F!
  120. !Disknummer (max. 3 St.+ 1 BST.) :!
  121. (DISK-LABEL-DRUCKER            >> INFO <<FF
  122. ( ESC=Ende    UP=Zur
  123. ck    RETURN=Weiter !
  124. PROGRAMM WIRKLICH BEENDEN?!
  125. Ja, bitte|Lieber nicht!
  126. RAM:LAB.INFO F
  127. ram:Lab.infoF.
  128. Text f
  129. r Zeile 
  130.  (max. 24 St.) :!
  131. &eTFB
  132. Drucker bereit (J/N) ??
  133. PRT:F
  134. "Label noch einmal drucken (J/N) ??
  135. &flFL
  136. !Randtext eingeben (max. 24 St.) :!
  137. ckentext Zeile 
  138.  (max. 20 St.) :!
  139. 32,126,10,32,126,98,196,196,10,228,228,10
  140. 246,246,10,214,214,10,220,220,10
  141. 252,252,10,223,223,10,167,167,10
  142. 169,169,10,174,174,10,165,165,10
  143. 166,166,10,177,177,10,161,161,10,191,191,10
  144. 196,196,98,228,228,98,246,246,98,214,214,98
  145. 220,220,98,252,252,98,223,223,98
  146. 167,167,98,169,169,98,174,174,98,165,165,98
  147. 166,166,98,177,177,98,161,161,98,191,191,98
  148. &phF<
  149. Neues Label-Bild laden!
  150. LADEN!
  151. &sLF<
  152. &t@F!
  153.           AUSWAHL!
  154. bernehmen!
  155. nschte Zeile anklicken !!
  156. &vfF<
  157. !Beende Programm|Versuch's nochmal!
  158. ram:lab.info F
  159. ram:lab.infoF.
  160. .  F 
  161. lab.infoF
  162. Datei 
  163. |NICHT gefunden!FF
  164. LAB.INFOF
  165. RAM:LAB.INFO!
  166. Datei 
  167. |NICHT gefunden!FF
  168. archiviert!
  169.           !
  170.     Work-Disk!
  171.     Back-Up  !
  172.              !
  173. LABPICF
  174.  Keine LABPIC-Datei!
  175.  Versuch's nochmal | Vergi
  176.  es !
  177. Datei 
  178. |NICHT gefunden!FF
  179. Datei 
  180. |NICHT gefunden!FF
  181.